home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ExecuteFKeys.zprx < prev    next >
Text File  |  1995-06-13  |  2KB  |  81 lines
  1. /*
  2.     $VER: ExecuteFKeys.zprx V1.0 (25-May-95) Copyright (c) Nils Görs
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man die
  5.     Belegung der Funktionstasten anzeigen lassen kann.
  6.  
  7.  
  8.    INSTALLATION:
  9.  
  10.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  11.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  12.     F10:SYS:Rexxc/RX ZPOINT:Rexx/ExecuteFKeys.zprx %s hinzu.
  13.  
  14.  
  15.    AUTOR DIESES SKRIPTS:
  16.  
  17.        Nils Görs              Tel. : +49 (0)202 784258
  18.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.Art-Line.de
  19.        42329 Wuppertal          oder über das ZP-Support-Brett.
  20.  
  21.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  22.  
  23.  
  24.    Das Skript benötigt Jürgen Kohrmeyers "rexxtricks.library"
  25. */
  26.  
  27. Fensterbreite = 600
  28. OPTIONS RESULTS
  29. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  30. PARSE ARG zpPort
  31. IF zpPort == "" THEN
  32.    zpPort = "ZPoint"
  33. ADDRESS VALUE zpPort
  34.  
  35. /* öffne alle nötigen libraries - wenn nicht möglich Programmende */
  36.  
  37. IF ~SHOW('LIBRARIES','rexxtricks.library') THEN
  38.   IF ~ADDLIB('rexxtricks.library',0,-30,0) THEN
  39.     EXIT
  40.  
  41. IF ~READFILE("dh1:bretter/fkeys.zp",zeile) THEN DO
  42.   REQUESTNOTIFY "FEHLER!"
  43.   EXIT
  44. END
  45.  
  46. lv = 0
  47. DO i = 0 TO zeile.0
  48.  
  49. Position = INDEX(zeile.i,'%')
  50. IF Position ~= 0 THEN DO
  51.  String2  = DELSTR(zeile.i,Position,2)
  52.  zeile.i  = INSERT(zpPort,String2,Position-1)
  53. END
  54.  
  55.   liste.lv = (zeile.i)
  56.   lv = lv + 1
  57. END
  58.  
  59. liste.0 = lv-1
  60.  
  61. fenster.title       = 'Bitte wählen'
  62. fenster.gadgettext  = 'S_tarten|_Abbrechen'
  63. fenster.pubscreen   = zpPort
  64. fenster.width       = fensterbreite
  65. fenster.font        = 'SCREEN'
  66. fenster.sort        = 'FALSE'
  67. fenster.multiselect = 'FALSE'
  68. IF VIEWLIST('liste','fenster','destvar') THEN DO
  69.   do i=0 to destvar.0
  70.     if pos(" ",destvar.i)>0 then destvar.i='"'destvar.i'"'
  71.   end
  72. IF Destvar.gadget == 0 THEN EXIT
  73. Command = COMPRESS(destvar.1,'"')
  74.  
  75. Position = INDEX(destvar.1,':')
  76. String2  = DELSTR(destvar.1,1,Position)
  77. Command  = COMPRESS(String2,'"')
  78. ADDRESS COMMAND command
  79. end
  80. /*EOS*/
  81.